import Data.List


isInAny needle haystack = any inSequence haystack
    where inSequence s = needle `isInfixOf` s
	

--Using partials	
isInAny2 needle haystack = any (isInfixOf needle) haystack

--Using anonymous functions (lamdas)
isInAny3 needle haystack = any (\s -> isInfixOf needle s) haystack
    
-- Same as before but using infix notation 
isInAny4 needle haystack = any (\s -> needle `isInfixOf` s) haystack
	
	